* Apply to: none
* Description: Figure 4

clear

set more off


* Parole Credits

di (1 - ((1.998624 - -1.201)/ 4.94)) + 7*((1.998624 - -1.201) / 4.94)

* 4.886183 (4.89)

clear all

set obs 7
gen x = [_n]
gen y = [_n]


input y1 x1 y2 x2
7 4.69 7 1
7 5.09 7 7
end

* Respondent X at 2.8

graph twoway ///
     (line y x, lcolor(none) lwidth(none)) || ///
	 (pcarrow y1 x1 y2 x2, msize(vlarge) barbsize(2) lcolor(black) mcolor(black) mfcolor(black)), ///
     xlabel(1(1)7, labsize(medlarge)) ylabel(1(1)7, nolabel notick) xline(4.89, lcolor(black) lwidth(thick)) ///
     text(3.63 2.8 "{bf:You Are}", size(vlarge) color(gray)) ///
     text(3.13 2.8 "{bf:Here}", size(vlarge) color(gray)) ///
     text(1.57 2.8 "{bf:|}", size(vlarge) color(gray)) ///
     text(1.17 2.8 "{bf:|}", size(vlarge) color(gray)) ///
     text(1.97 2.8 "{bf:|}", size(vlarge) color(gray)) ///
     text(2.37 2.8 "{bf:|}", size(vlarge) color(gray)) ///
     text(6 4.59 "{bf:Likely to}" "{bf:Support Additional}" "{bf:Parole Credits}", size(medlarge) just(left) placement(w)) ///
     text(6 5.34 "{bf:Likely to}" "{bf:Oppose Additional}" "{bf:Parole Credits}", size(medlarge) just(left) placement(e)) ///
	 text(-.50 1 "{bf:Most}" "{bf:Liberal}", size(medlarge) just(left) placement(e)) ///
     text(-.50 4 "{bf:In the}" "{bf:Middle}", size(medlarge)) ///
     text(-.50 7 "{bf:Most}" "{bf:Conservative}", size(medlarge) just(right) placement(w)) ///
	 legend(off) ///
	 ytitle(" ") ///
	 xtitle(" " " " " " "{bf:IDEOLOGICAL RATING}", size(large)) ///
	 scheme(s1color) ///
     graphregion(color(white)) plotregion(color(white))

* Use graph editor to erase y-axis

* End
